00100	TITLE SAVB
00200	;CALLING SEQUENCE:
00300	;	CALL SAVB(INTEGER ARRAY A)  - 1ST WRD IS WDCNT
00400	
00500	INTERNAL SAVB
00600	
00650	SAVB:	0
00700		INIT 12,17
00800		'DSK   '
00900		0
01000		JRST [	OUTSTR[ASCIZ/CAN'T GET DISK!
01100	/]
01200			JRA 16,1(16)]
01300		SETZB 1,NAME+3
01400		SETZM NAME+2
01500		HLLZS NAME+1
01600		ENTER 12,NAME
01700		JRST [	OUTSTR[ASCIZ/ENTER FAILED!
01800	/]
01900			RELEASE 12,
02000			JRA 16,1(16)]
02100		MOVE @(16)
02200		MOVN
02300		MOVS
02400		HRRI @(16)
02500		OUT 12,
02600		CAIA
02700		OUTSTR[ASCIZ/OUTPUT ERROR!
02800	/]
02900		RELEASE 12,
03000		JRA 16,1(16)
03100	
03200	NAME:	'PLOTZ '
03300		'DAT   '
03400		BLOCK 2
03500	
03600	END